home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ SFP Options 2.xpl < prev    next >
Text File  |  2001-04-12  |  1KB  |  49 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="System\Software Installation\Windows File Protection"
  5. "NAME"="WFP Check Options"
  6. "VERSION"="1.05"
  7. "OSVERSION"="000101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Do not scan cached files"
  10. "TEXT 2"="Scan cached files at every bootup"
  11. "TEXT 3"="Scan cached files ONLY on next bootup"
  12. "DESCRIPTION 1"="WFP is a system that prevents "bad" apps from changing system files."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to Chris [mailto:cgmt@flashmail.com] for the "only W2K" bug fix"
  18.  
  19.  
  20. sV1="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SFCScan" 'DW 
  21.  
  22.  
  23. Sub Plugin_Initialize 
  24.     i=RegReadValue(sV1)
  25.     if i=0 then setuielement 1,true
  26.     if i=1 then setuielement 2,true
  27.     if i=2 then setuielement 3,true
  28. End Sub
  29.  
  30. Sub Plugin_CheckData(ElementIndex)
  31. End Sub
  32.  
  33. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  if GetUIElement(1)=true then
  35.     v=0
  36.  else
  37.     if GetUIElement(2)=true then
  38.        v=1
  39.     else
  40.        v=2
  41.     end if
  42.  end if
  43.  
  44.  Call RegWriteValue(sV1,v,2)
  45. End Sub
  46.  
  47. Sub Plugin_Terminate 
  48. End Sub
  49.